home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ Opera 3.xpl < prev    next >
Text File  |  2001-02-10  |  2KB  |  110 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Internet\Opera\"
  5. "NAME"="General Settings"
  6. "VERSION"="1.00"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Automatically save Window positions"
  9. "DESCRIPTION 1"="Some options for Opera."
  10. "DESCRIPTION 2"="Opera may be obtained at http://www.opera.com"
  11. "AUTHOR"="Xteq Systems"
  12. "CONTACTURL"="http://www.xteq.com"
  13. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  14. "COMMENT 1"=" "
  15. "COMMENT 2"="Thanks to CptSiskoX for the settings and the idea."
  16.  
  17.  
  18. sFile=""
  19. sVal_On="1"
  20. sVal_Off="0"
  21.  
  22. sSec="USER PREFS"
  23. 'sSec2="WINDOW"
  24.  
  25. sV1="SHOW EXIT DIALOG"
  26. 'sV2="FullScreen"
  27. 'sV3="SHOW SCROLLBARS"
  28. 'sV4="SHOW MENU"
  29.  
  30.  
  31. Sub GetINIFile    
  32.     sPath=RegReadValue("HKCU\Software\Opera Software\Last Directory")
  33.     sFile=sPath & "\OPERA.ini"
  34.  
  35.     if FileExists(sFile)=false then
  36.        sFile=GetWinDir & "OPERA.ini"
  37.     end if   
  38. End Sub
  39.  
  40. Sub Plugin_Initialize 
  41.  Call GetINIFile
  42.  
  43.  If FileExists(sFile) then
  44.  
  45.     i=IniReadValue(sFile,sSec,sV1)
  46.     if i=sVal_Off then SetUiElement 1,true
  47.  
  48.     'i=IniReadValue(sFile,sSec2,sV2)
  49.     'if i=sVal_On then SetUiElement 2,true
  50.  
  51.     'i=IniReadValue(sFile,sSec,sV3)
  52.     'if i=sVal_On then SetUiElement 3,true
  53.  
  54.     'i=IniReadValue(sFile,sSec,sV4)
  55.     'if i=sVal_On then SetUiElement 4,true
  56.  
  57.  else
  58.     Call Disable()
  59.  End if
  60.  
  61. End Sub
  62.  
  63.  
  64. Sub Plugin_CheckData(ElementIndex)
  65. End Sub
  66.  
  67.  
  68.  
  69. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  70.  b=GetUIElement(1)
  71.  if b=true then 
  72.     s=sVal_Off
  73.  else
  74.     s=sVal_On
  75.  end if
  76.  Call iniWriteValue(sFile,sSec,sV1,s)
  77.  
  78. ' b=GetUIElement(2)
  79. ' if b=true then 
  80. '     s=sVal_On
  81. '  else
  82. '     s=sVal_Off
  83. '  end if
  84. '  Call iniWriteValue(sFile,sSec2,sV2,s)
  85.  
  86. '  b=GetUIElement(3)
  87. '  if b=true then 
  88. '     s=sVal_On
  89. '  else
  90. '     s=sVal_Off
  91. '  end if
  92. '  Call iniWriteValue(sFile,sSec,sV3,s)
  93.  
  94. '  b=GetUIElement(4)
  95. '  if b=true then 
  96. '     s=sVal_On
  97. '  else
  98. '     s=sVal_Off
  99. '  end if
  100. '  Call iniWriteValue(sFile,sSec,sV4,s)
  101.  
  102. End Sub
  103.  
  104.  
  105. Sub Plugin_Terminate 
  106. End Sub
  107.  
  108.  
  109.  
  110.